object RepDlg: TRepDlg Left = 192 Top = 241 BorderStyle = bsDialog Caption = 'Print' ClientHeight = 345 ClientWidth = 368 Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] Scaled = False ShowHint = True OnCreate = FormCreate OnDestroy = FormDestroy PixelsPerInch = 96 TextHeight = 14 object ButtonPanel: TPanel Left = 283 Top = 0 Width = 85 Height = 291 Align = alRight BevelOuter = bvNone Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 object PrintBtn: TBitBtn Left = 5 Top = 66 Width = 77 Height = 27 Hint = 'Print Report On Selected Printer' Caption = '&Print' Default = True TabOrder = 2 OnClick = PrintBtnClick Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000 0003377777777777777308888888888888807F33333333333337088888888888 88807FFFFFFFFFFFFFF7000000000000000077777777777777770F8F8F8F8F8F 8F807F333333333333F708F8F8F8F8F8F9F07F333333333337370F8F8F8F8F8F 8F807FFFFFFFFFFFFFF7000000000000000077777777777777773330FFFFFFFF 03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF 03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0 33333337F3F37F3733333330F08F0F0333333337F7337F7333333330FFFF0033 33333337FFFF77333333333000000333333333377777733333330000} Margin = 2 NumGlyphs = 2 Spacing = -1 IsControl = True end object CancelBtn: TBitBtn Left = 5 Top = 6 Width = 77 Height = 27 Hint = 'Close This Window' Caption = '&Close' TabOrder = 0 Kind = bkCancel Margin = 2 Spacing = -1 IsControl = True end object HelpBtn: TBitBtn Left = 5 Top = 36 Width = 77 Height = 27 Hint = 'Display Help Window' TabOrder = 1 OnClick = HelpBtnClick Kind = bkHelp Margin = 2 Spacing = -1 IsControl = True end object PreviewBtn: TBitBtn Left = 5 Top = 126 Width = 77 Height = 27 Hint = 'Preview Report On Screen' Caption = 'Pre&view' Default = True TabOrder = 4 OnClick = PreviewBtnClick Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000 033333777777777773333330777777703333333773F333773333333330888033 33333FFFF7FFF7FFFFFF0000000000000003777777777777777F0FFFFFFFFFF9 FF037F3333333337337F0F78888888887F037F33FFFFFFFFF37F0F7000000000 8F037F3777777777F37F0F70AAAAAAA08F037F37F3333337F37F0F70ADDDDDA0 8F037F37F3333337F37F0F70A99A99A08F037F37F3333337F37F0F70A99A99A0 8F037F37F3333337F37F0F70AAAAAAA08F037F37FFFFFFF7F37F0F7000000000 8F037F3777777777337F0F77777777777F037F3333333333337F0FFFFFFFFFFF FF037FFFFFFFFFFFFF7F000000000000000377777777777777730000} Margin = 2 NumGlyphs = 2 Spacing = -1 IsControl = True end object SelectBtn: TBitBtn Left = 5 Top = 96 Width = 77 Height = 27 Hint = 'Select Printer' Caption = 'S&elect' Default = True TabOrder = 3 OnClick = SelectBtnClick Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000 0003377777777777777308888888888888807F33333333333337088888888888 88807FFFFFFFFFFFFFF7000000000000000077777777777777770F8F8F8F8F8F 8F807F333333333333F708F8F8F8F8F8F9F07F333333333337370F8F8F8F8F8F 8F807FFFFFFFFFFFFFF7000000000000000077777777777777773330FFFFFFFF 03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF 03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0 33333337F3F37F3733333330F08F0F0333333337F7337F7333333330FFFF0033 33333337FFFF77333333333000000333333333377777733333330000} Margin = 2 NumGlyphs = 2 Spacing = -1 IsControl = True end end object Panel1: TPanel Left = 0 Top = 291 Width = 368 Height = 33 Align = alBottom BevelOuter = bvNone TabOrder = 1 object PreviousBtn: TButton Left = 16 Top = 3 Width = 89 Height = 25 Caption = '<< P&revious' TabOrder = 0 Visible = False OnClick = PreviousBtnClick end object NextBtn: TButton Left = 162 Top = 3 Width = 89 Height = 25 Caption = '&Next >>' TabOrder = 1 OnClick = NextBtnClick end end object Notebook: TNotebook Left = 0 Top = 0 Width = 283 Height = 291 Align = alClient TabOrder = 2 IsControl = True object TPage Left = 0 Top = 0 Caption = 'Page' object GroupBox20: TGroupBox Left = 0 Top = 0 Width = 283 Height = 291 Align = alClient Caption = 'Page Settings' TabOrder = 0 object Image4: TImage Left = 216 Top = 69 Width = 33 Height = 33 Picture.Data = {} Visible = False end object Image3: TImage Left = 216 Top = 69 Width = 33 Height = 33 Picture.Data = {} end object Image2: TImage Left = 216 Top = 153 Width = 49 Height = 41 Picture.Data = {} Visible = False end object Image1: TImage Left = 216 Top = 153 Width = 49 Height = 41 Picture.Data = {} end object Label3: TLabel Left = 8 Top = 256 Width = 99 Height = 14 Caption = 'Number Of Columns:' end object OrientationRG: TRadioGroup Left = 7 Top = 148 Width = 202 Height = 44 Hint = 'Select Page Orientation' Caption = 'Page Orientation' Items.Strings = ( 'Portrait' 'Landscape') TabOrder = 1 OnClick = OrientationRGClick end object RadioGroup1: TRadioGroup Left = 8 Top = 194 Width = 201 Height = 44 Hint = 'Units Of Measure (used by widths, heights, margins, etc.)' Caption = 'Units Of Measure' Items.Strings = ( 'inches' 'centimeters') TabOrder = 2 OnClick = RadioGroup1Click end object GroupBox21: TGroupBox Left = 8 Top = 14 Width = 201 Height = 131 Caption = 'Page Size in Units' TabOrder = 0 object Label31: TLabel Left = 5 Top = 19 Width = 30 Height = 14 Caption = 'Width:' end object Label32: TLabel Left = 101 Top = 19 Width = 33 Height = 14 Caption = 'Height:' end object SizeRG: TRadioGroup Left = 8 Top = 39 Width = 185 Height = 84 Hint = 'Some Page Sizes may not be accepted by your Printer' Items.Strings = ( 'Letter' 'Legal' 'A4' 'Custom') TabOrder = 2 OnClick = SizeRGClick end object PgWidthEd: TEdit Left = 43 Top = 16 Width = 49 Height = 22 TabOrder = 0 end object PgHeightEd: TEdit Left = 143 Top = 16 Width = 49 Height = 22 TabOrder = 1 end end object SpinEdit1: TSpinEdit Left = 126 Top = 255 Width = 41 Height = 23 Hint = 'Number Of Columns per page' Color = clBtnFace EditorEnabled = False MaxValue = 9 MinValue = 1 TabOrder = 3 Value = 1 end end end object TPage Left = 0 Top = 0 Caption = 'Scope' object GroupBox1: TGroupBox Left = 0 Top = 0 Width = 283 Height = 291 Align = alClient Caption = 'Print Scope' TabOrder = 0 object Label1: TLabel Left = 16 Top = 112 Width = 76 Height = 14 Caption = 'Print From Date:' end object Label2: TLabel Left = 28 Top = 139 Width = 64 Height = 14 Caption = 'Print To Date:' end object DateEdit1: TDateEdit Left = 111 Top = 109 Width = 120 Height = 22 DateFormat = 'mm/dd/yyyy' Date = '__/__/____' MaxLength = 10 TabOrder = 1 end object DateEdit2: TDateEdit Left = 112 Top = 136 Width = 120 Height = 22 DateFormat = 'mm/dd/yyyy' Date = '__/__/____' MaxLength = 10 TabOrder = 2 end object ScopeRG: TRadioGroup Left = 16 Top = 16 Width = 241 Height = 89 Caption = 'Print Scope' Items.Strings = ( 'Today' 'Current Week' 'Current Month' 'Current Year' 'Custom') TabOrder = 0 OnClick = ScopeRGClick end object GroupBox2: TGroupBox Left = 16 Top = 163 Width = 180 Height = 120 Caption = 'Print Reminders' TabOrder = 3 object RadioGroup2: TRadioGroup Left = 7 Top = 17 Width = 74 Height = 97 Caption = 'Status' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ItemIndex = 3 Items.Strings = ( 'Active' 'Waiting' 'Expired' 'All') ParentFont = False TabOrder = 0 end object RadioGroup3: TRadioGroup Left = 88 Top = 17 Width = 84 Height = 97 Caption = 'Priority' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ItemIndex = 5 Items.Strings = ( 'Low' 'Normal' 'Low+Norm.' 'High' 'Hi+Norm.' 'All') ParentFont = False TabOrder = 1 end end end end object TPage Left = 0 Top = 0 Caption = 'Body' object GroupBox9: TGroupBox Left = 0 Top = 0 Width = 283 Height = 291 Align = alClient Caption = 'Report Body' TabOrder = 0 object GroupBox11: TGroupBox Left = 8 Top = 20 Width = 225 Height = 44 Caption = 'Body Margins [Units]' TabOrder = 0 object Label18: TLabel Left = 14 Top = 20 Width = 22 Height = 14 Caption = 'Left:' end object Label19: TLabel Left = 109 Top = 20 Width = 21 Height = 14 Caption = 'Top:' end object LMargin: TEdit Left = 41 Top = 17 Width = 49 Height = 22 Hint = 'Report Body Left Margin' TabOrder = 0 end object TMargin: TEdit Left = 136 Top = 17 Width = 49 Height = 22 Hint = 'Report Text Top Margin' TabOrder = 1 end end object GroupBox10: TGroupBox Left = 8 Top = 72 Width = 225 Height = 193 Caption = 'Text Font' TabOrder = 1 object Label10: TLabel Left = 16 Top = 16 Width = 54 Height = 14 Caption = 'Font Name:' end object Label11: TLabel Left = 16 Top = 60 Width = 51 Height = 14 Caption = 'Font Style:' end object Label12: TLabel Left = 16 Top = 104 Width = 48 Height = 14 Caption = 'Font Size:' end object FontEd: TEdit Left = 16 Top = 32 Width = 185 Height = 22 TabStop = False Color = clBtnFace ReadOnly = True TabOrder = 0 Text = 'Arial' end object StyleEd: TEdit Left = 16 Top = 76 Width = 185 Height = 22 TabStop = False Color = clBtnFace ReadOnly = True TabOrder = 1 end object SizeEd: TEdit Left = 16 Top = 120 Width = 185 Height = 22 TabStop = False Color = clBtnFace ReadOnly = True TabOrder = 2 Text = '10' end object FontBtn: TBitBtn Left = 50 Top = 152 Width = 113 Height = 33 Hint = 'Select Font' Caption = 'Change Font' TabOrder = 3 OnClick = FontBtnClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333333333333333333333FFF33FFFFF33333300033000 00333337773377777333333330333300033333337FF33777F333333330733300 0333333377FFF777F33333333700000073333333777777773333333333033000 3333333337FF777F333333333307300033333333377F777F3333333333703007 33333333377F7773333333333330000333333333337777F33333333333300003 33333333337777F3333333333337007333333333337777333333333333330033 3333333333377333333333333333033333333333333733333333333333333333 3333333333333333333333333333333333333333333333333333} Margin = 5 NumGlyphs = 2 end end end end end object TabSet: TTabSet Left = 0 Top = 324 Width = 368 Height = 21 Align = alBottom Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Tabs.Strings = ( 'Page' 'Scope' 'Body') TabIndex = 0 OnClick = TabSetClick OnChange = TabSetChange end object ReportSystem1: TReportSystem TitleSetup = 'Report Setup' TitleStatus = 'Report Status' TitlePreview = 'Report Preview' SystemSetups = [ssAllowCopies, ssAllowCollate, ssAllowDuplex, ssAllowDestPreview, ssAllowDestPrinter, ssAllowDestFile, ssAllowPrinterSetup] SystemFiler.FileName = 'label.tmp' SystemFiler.StatusFormat = 'Generating page %p' SystemFiler.StreamMode = smFile SystemPreview.ZoomFactor = 100.000000000000000000 SystemPrinter.ScaleX = 100.000000000000000000 SystemPrinter.ScaleY = 100.000000000000000000 SystemPrinter.StatusFormat = 'Printing page %p' SystemPrinter.Title = 'Report' SystemPrinter.UnitsFactor = 1.000000000000000000 OnPrint = ReportSystem1Print OnBeforePrint = ReportSystem1BeforePrint OnNewPage = ReportSystem1NewPage OnNewColumn = ReportSystem1NewColumn Left = 336 Top = 280 end object FontDialog1: TFontDialog Font.Color = clWindowText Font.Height = -13 Font.Name = 'System' Font.Style = [] MinFontSize = 0 MaxFontSize = 0 Left = 304 Top = 216 end object OpenDialog1: TOpenDialog FileEditStyle = fsEdit Title = 'Select Logo File' Left = 336 Top = 216 end end